home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Camelot / Camelot 043 (1989-06)(Swedish User Group of Amiga)(SE)(PD)[WB].zip / Camelot 043 (1989-06)(Swedish User Group of Amiga)(SE)(PD)[WB].adf / zc / subs.c < prev    next >
Text File  |  1989-03-08  |  341b  |  25 lines
  1. /*
  2.  *    Replace non-portable assembly assist routines lclr()
  3.  *    and lcpy() with portable, albeit possibly slightly slower
  4.  *    versions.
  5.  */
  6.  
  7. void lclr (ptr, lcount)
  8. long *ptr;
  9. int lcount;
  10. {
  11.     while (lcount-- > 0) {
  12.         *ptr++ = 0;
  13.     }
  14. }
  15.  
  16. void lcpy (out, in, lcount)
  17. long *out;
  18. long *in;
  19. int lcount;
  20. {
  21.     while (lcount-- > 0) {
  22.         *out++ = *in++;
  23.     }
  24. }
  25.